unit SkullPawn;

interface

uses Pawn, Graphics, Player, Types;

type

 TSkullPawn = class(TPawnWithImage)
 public
  constructor Create(Dim: integer; Color: TColor; Value: Integer);
  procedure OnDestruct(Player: TPlayer); override;
 end;

implementation

procedure TSkullPawn.OnDestruct(Player: TPlayer);
begin
 Player.ClearPoints;
end;

constructor TSkullPawn.Create(Dim: integer; Color: TColor; Value: Integer);
begin
 inherited Create(Dim, Color, Value, 'graph\skull.bmp');
end;

end.
